       ID Division.
       Program-ID. A1901.
       Environment Division.
      *Datendeklaration
       Data Division.
       01  a pic x(10).
       01  Zahl1 pic 9(5)V99.
       01  Zahl2 pic 9(5).
       01  Zahl3 pic 9(5).
      *Ausgabeformate
       01  Zahl1-out pic zz,zz9.99.
       01  Zahl2-out pic ****9.
       Procedure division.
       main.
           display 'hallo' upon console
           display 'Gib Zahl1 ein:' upon console
           accept Zahl1 from console
           move 'HTL' to a
           move 5 to Zahl2
           compute Zahl3 = Zahl2 + 1
           move Zahl3 to Zahl2-out
           move Zahl1 to Zahl1-out
           display 'Zahl1=' Zahl1 'Zahl1-out=' Zahl1-out upon console.
           stop run.
